COMMENT ⊗   VALID 00006 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	\chcode'173←1 \chcode'176←2 \chcode'44←3 \chcode'26←4
C00007 00003	\:@←cmathx \:a←cmr10 \:b←cmr9 \:c←cmr8
C00011 00004	\def\tpage{F} \def\chead{}	% "global variables"
C00014 00005	\def\blankfig{F}  % F if figures have silly copy in them, T if they're blank space.
C00017 00006	\def\TEX{\hjust{\:aT\hskip-2pt\lower1.94pt\hjust{E}\hskip-2pt X}}
C00022 ENDMK
C⊗;
\chcode'173←1 \chcode'176←2 \chcode'44←3 \chcode'26←4
\chcode'45←5 \chcode'43←6 \chcode'136←7 \chcode 1←8

\def\%{\char'45 }	% Note, the space after 45 is needed! (e.g.\%0)

\def\lft#1{#1\hfill}
\def\ctr#1{\hfill#1\hfill}
\def\rt#1{\hfill#1}

\def\rjustline#1{\hjust to size{\hfill#1}}
\def\ctrline#1{\hjust to size{\hfill#1\hfill}}

\def\trace{\chpar0←}
\def\jpar{\chpar1←}
\def\ragged{\chpar8←}

\def\≠{\spose/=}
\def\≡{\chcode'173←12 \chcode'176←12 \chcode'44←12 \chcode'26←12
\chcode'45←12 \chcode'43←12 \chcode'136←12 \chcode1←12 \chcode'134←12
\chcode'36←0 \tt
\def\`{{\char'15}}\def\'{{\char'16}}\def\↓{{\char'175}}\def\≤{~}\def\≥{≠}\def\∞{∃}}
\def\\{\chcode'176←2 }

\def\log{\mathop{\char'154\char'157\char'147}\limitswitch}
\def\lim{\mathop{\char'154\char'151\char'155}}
\def\sin{\mathop{\char'163\char'151\char'156}\limitswitch}
\def\cos{\mathop{\char'143\char'157\char'163}\limitswitch}
\def\max{\mathop{\char'155\char'141\char'170}}
\def\min{\mathop{\char'155\char'151\char'156}}
\def\exp{\mathop{\char'145\char'170\char'160}\limitswitch}
\def\choose{\comb()}
\def\leftset{\mathopen{\{\,}}
\def\rightset{\mathclose{\,\}}}
\def\gcd{\mathop{\char'147\char'143\char'144}}
\def\modop{\<\,\mathbin{\char'155\char'157\char'144}\<\,}
\def\mod#1{\penalty0\;(\char'155\char'157\char'144\,\,#1)}
\def\eqv{\mathrel\char'421 }
\def\neqv{\mathrel{\not\eqv}}

\def\ldots{{.\≥.\≥.}}
\def\cdots{{\char'401\≥\char'401\≥\char'401}}
\def\ldotss{{.\≥.\≥.\≥}}
\def\cdotss{\cdots\≥}
\def\vdots{\vjust{\baselineskip 4pt\vskip 6pt\hjust{.}\hjust{.}\hjust{.}}}
\def\ldotsm{{\≥.\≥.\≥.\≥}}

\def\eqalign#1{\vcenter{\halign{\hfill$\dispstyle{##}$⊗$\dispstyle{\null##}$\hfill
\cr#1}}}
\def\eqalignno#1{\vjust{\tabskip 0pt plus 1000pt minus 1000pt
   \halign to size{\hfill$\dispstyle{##}$\tabskip 0pt
   ⊗$\dispstyle{\null##}$\hfill\tabskip 0 pt plus 1000pt minus 1000pt
   ⊗\hfill$ ##$\tabskip 0pt\cr#1}}}
\def\cpile#1{\vcenter{\halign{\hfill$## $\hfill\cr#1}}}
\def\lpile#1{\vcenter{\halign{$## $\hfill\cr#1}}}
\def\rpile#1{\vcenter{\halign{\hfill$## $\cr#1}}}
\def\null{\hjust{}}
\def\twoline#1#2#3{\halign{\hjust to size{##}\cr\quad$\dispstyle{#1}$\hfill\cr
\noalign{\penalty 1000\vskip#2}\hfill$\dispstyle{#3}$\quad\cr}}

\def\chop to#1pt#2{\hjust{\lower#1pt\null\vjust{\hjust{\lower100pt\hjust{\raise100pt
\hjust{$\dispstyle{#2}$}}}\vskip-100pt}}} % pretends that #2 is #1 deep
\def\spose#1{\hjust to 0pt{\hskip 0pt minus 100pt #1 \hskip 0pt minus 10000000pt}}
\:@←cmathx \:a←cmr10 \:b←cmr9 \:c←cmr8
\:d←cmr7   \:e←cmr6  \:f←cmr5 \:g←cmi10
\:h←cmi9   \:i←cmi8  \:j←cmi7 \:k←cmi6
\:l←cmi5   \:m←cmsc10 \:n←cms10 \:o←cms9
\:p←cms8  \:q←cmb10 \:r←cmb9 \:s←cmtt8
\:t←cmtt   \:u←cmsy10 \:v←cmsy9 \:w←cmsy8
\:x←cmsy7  \:y←cmsy6 \:z←cmsy5 \:;←cmtitl
\:<←cmssb  \:=←cmu10 \:>←cmtt9 \:?←cmti10

\hsize 29pc \vsize 36pc \maxdepth 2pt \parindent 19pt
\parskip 0pt plus 1 pt \lineskip 1pt
\topskip 24pt plus 6pt minus 10pt  \botskip 15pt plus 3pt minus 9pt
\def\tenpoint{\baselineskip 12pt \dispskip 12pt plus 3pt minus 9pt
	\dispaskip 0pt plus 3pt \dispbskip 7pt plus 3pt minus 4pt
	\def\rm{\:a} \def\sl{\:n} \def\bf{\:q} \def\it{\:?} \def\tt{\:t}
	\def\biglp{\mathopen{\vcenter{\hjust{\:@\char'0}}}}
	\def\bigrp{\mathclose{\vcenter{\hjust{\:@\char'1}}}}
	\def\9{\hskip 5pt}
	\mathrm adf \mathit gjl \mathsy uxz \rm}
\def\ninepoint{\baselineskip 11pt \dispskip 11pt plus 3pt minus 8pt
	\dispaskip 0pt plus 3pt \dispbskip 6pt plus 3pt minus 3pt
	\def\rm{\:b} \def\sl{\:o} \def\bf{\:r} \def\it{\:h} \def\tt{\:>}
	\def\biglp{\mathopen{\hjust{\:a(}}}
	\def\bigrp{\mathclose{\hjust{\:a)}}}
	\def\9{\hskip 4.5pt}
	\mathrm bef \mathit hkl \mathsy vyz \rm}
\def\eightpoint{\baselineskip 9pt \dispskip 9pt plus 3pt minus 7pt
	\dispaskip 0pt plus 3pt \dispbskip 5pt plus 3pt minus 2pt
	\def\rm{\:c} \def\sl{\:p} \def\bf{\error} \def\it{\:i} \def\tt{\:s}
	\def\biglp{\mathopen{\hjust{\:a(}}}
	\def\bigrp{\mathclose{\hjust{\:a)}}}
	\def\9{\hskip 4pt}
	\def\TEX{\hjust{\:cT\hskip-1.6pt\lower1.552pt\hjust{E}\hskip-1.6pt X}}
	\mathrm cef \mathit ikl \mathsy wyz \rm}
\mathex @
\def\bigglp{\mathopen{\vcenter{\hjust{\:@\char'22}}}}
\def\biggrp{\mathclose{\vcenter{\hjust{\:@\char'23}}}}
\def\biggglp{\mathopen{\vcenter{\hjust{\:@\char'40}}}}
\def\bigggrp{\mathclose{\vcenter{\hjust{\:@\char'41}}}}

\def\qquad{\quad\quad}
\def\xskip{\hskip 7pt plus 3pt minus 4pt}
\def\yskip{\penalty-50\vskip 3pt plus 3pt minus 2pt}
\def\yyskip{\penalty-100\vskip 6pt plus 6pt minus 4pt}
\def\sectionskip{\penalty-200\vskip 24pt plus 12pt minus 6pt}

\def\textindent#1{\noindent\hjust to 19pt{\hskip 0pt plus 1000pt minus 1000pt#1\ 
\!}}
\def\hang{\hangindent 19pt}
\def\tpage{F} \def\chead{}	% "global variables"
\def\index{F}
\def\trule{\vrule height 13.5pt depth 6.5pt}	% used at top of page
\def\titlepage{\gdef\tpage{T}}  % \titlepage sets tpage to T
\def\manmark#1#2{\mark
	{\ifeven0{\hjust to .45 in{\:a\hfill\count0\hfill\trule}\hfill\:=#1\hfill}
	\else{\hfill\:=#2\hfill\hjust to .45 in{\:a\trule\hfill\count0\hfill}}}}
\output{\baselineskip 0pt\lineskip0pt	% beginning of output routine, resets skips
	\if T\tpage		% the next is used when tpage is "T" (title pages)
		{\gdef\tpage{F} % reset tpage
		\vskip 36pt	% blank space in place of headlines
		\page\advcount0}	% insert the page contents, no page number
	\else{\if T\index{\indexoutput}
	\else{\moveleft 10pt\vjust to 36pt{\hrule % horizontal rule at top of page
		\hjust to 368pt{\trule\ifeven0{\topmark}\else{\botmark}\trule}
		\hrule\vfill}	% horizontal rule under the headline
		\page\advcount0}	% insert the page contents
	}}		% end output routine
\def\blankfig{F}  % F if figures have silly copy in them, T if they're blank space.
\def\figure#1#2{$$\vjust to #1{\if T\blankfig{}\else{\hrule\vfill
\hjust{\:f#2}\vfill\hrule}}$$}

\def\chapterbegin #1. #2{\manmark{Chapter #1}{\chead}\sectionskip
\hjust{\:<<#1> #2}\penalty1000\vskip 3pt
\manmark{Chapter #1}{#2}\gdef\chead{#2}\noindent\tenpoint\!}
\def\appbegin #1. #2{\manmark{Appendix #1}{\chead}\sectionskip
\hjust{\:<<#1> #2}\penalty1000\vskip 3pt
\manmark{Appendix #1}{#2}\gdef\chead{#2}\noindent\tenpoint\!}
\def\specialchapterbegin #1. #2{\manmark{Chapter #1}{\chead}\eject
\hjust{\:<<#1> #2}\penalty1000\vskip 3pt
\manmark{Chapter #1}{#2}\gdef\chead{#2}\noindent\tenpoint\!}
\def\specialappbegin #1. #2{\manmark{Appendix #1}{\chead}\eject
\hjust{\:<<#1> #2}\penalty1000\vskip 3pt
\manmark{Appendix #1}{#2}\gdef\chead{#2}\noindent\tenpoint\!}
\def\postindexappbegin #1. #2{\manmark{Appendix #1}{\chead}\eject
\if R\lr{\null\eject}\else{}% finishing up the index with empty right-hand column
\def\index{F}\parindent19pt\hsize 348pt\jpar2\ragged0
\hjust{\:<<#1> #2}\penalty1000\vskip 3pt
\manmark{Appendix #1}{#2}\gdef\chead{#2}\noindent\tenpoint\!}

\def\danger{\yyskip\noindent\hangindent 19pt for 2
\hjust to 0pt{\hskip-17pt\:@\char'177\hfill}\ninepoint}
\def\ddanger{\yyskip\noindent\hangindent 37pt for 2
\hjust to 0pt{\hskip-35pt\:@\char'177\char'177\hfill}\ninepoint}
\def\enddanger{\par\yyskip\tenpoint}


\def\footnote#1#2{#1\botinsert{\hrule width 5pc
	\vskip 3pt \baselineskip 9pt\hjust to size{\eightpoint#1#2\hfill}}}

\def\exno #1:{{\:@\char'170\bf Exercise #1:}}
\def\TEX{\hjust{\:aT\hskip-2pt\lower1.94pt\hjust{E}\hskip-2pt X}}
\def\break{\hskip 0pt plus 1000pt \penalty-100}